﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
	dim fleg
    		fleg = Request("fleg")    
    		If fleg = "" Then fleg = 0
   		If Not IsNumeric(fleg) Then fleg = 0
    		fleg = CLng(fleg)
    		If fleg < 0 Then fleg = 0


%>
	<card title="栏目分类管理"><p align="left">
	<a href="addclass.asp?fleg=<%=fleg%>&amp;page=<%=page%>&amp;sid=<%=sid%>">添加新栏目</a><br/>提示:删除栏目需谨慎操作,栏目执行操作后它和它的下级栏目也会一并删除<br/>-----------------<br/>
<%
	dim rs,sql,page,i
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1


	Set Rs = Server.CreateObject("Adodb.Recordset")
		sql="select * from qingtian_class where fleg="&fleg&" order by pid asc"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then
				Rs.PageSize = 15	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage


		For i=1 to  Rs.PageSize
		If Rs.Eof Then
			exit For
		End If
			if rs("ext")=0 then
			%><a href="lclass.asp?fleg=<%=rs("id")%>&amp;sid=<%=sid%>"><%=qingtian.utf8(rs(1))%></a><%
			else
			%><%=rs("pid")%>.<%=qingtian.utf8(rs(1))%><%
			end if%>
			<%
			select case rs("ext")
			case 0
				%>[栏目ID:<%=rs("id")%>]<%
			case 1
				%>[文字]<%
			case 2
				%>[商品/文件]<%
			case 3
				%>[标签]<%
			case 4
				%>[图片]<%
			case 5
				%>[文章]<%
			case 6
				%>[文件栏目ID:<%=rs("id")%>]<%
			case 7
				%>[文章栏目ID:<%=rs("id")%>]<%
			case 8
				%>[图片栏目]<%
			end select
			%><br/>
			<%if rs("ext")=0 or rs("ext")=6 or rs("ext")=7 or rs("ext")=8 then%>
			管理:[<a href="lclass.asp?fleg=<%=rs("id")%>&amp;sid=<%=sid%>">下级栏目</a>
			<%end if%>
			<%if rs("ext")=6 then%>
			|<a href="filelist.asp?classid=<%=rs("id")%>&amp;sid=<%=sid%>">内容</a>]<br/>
			<%elseif rs("ext")=7 then%>
			|<a href="viewlist.asp?classid=<%=rs("id")%>&amp;sid=<%=sid%>">内容</a>]<br/>
			<%elseif rs("ext")=8 then%>
			|<a href="photolist.asp?classid=<%=rs("id")%>&amp;sid=<%=sid%>">内容</a>]<br/>
			<%elseif rs("ext")=0 then%>
			]<br/>
			<%end if%>
			[<a href="editclass.asp?id=<%=rs("id")%>&amp;fleg=<%=fleg%>&amp;page=<%=page%>&amp;sid=<%=sid%>">修改</a>|<a href="delclass.asp?id=<%=rs("id")%>&amp;fleg=<%=fleg%>&amp;page=<%=page%>&amp;sid=<%=sid%>">删除</a><%if rs("ext")=0 or rs("ext")=7 then%>|<a href="keclass.asp?fleg=<%=rs("id")%>&amp;page=<%=page%>&amp;sid=<%=sid%>">克隆</a><%end if%>]<br/><%
	 	Rs.MoveNext
	  	Next

       
    		'分页
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='lclass.asp?page=" & Page + 1 & "&amp;fleg=" & fleg & "&amp;sid=" & sid & "'>下一页</a>")
    		End If
       
    		If Page > 1 And Page < rs.PageCount Then
    		    Response.Write("|")
    		End If
        
    		If Page > 1 Then
    		    Response.Write("<a href='lclass.asp?page=" & Page - 1 & "&amp;fleg=" & fleg & "&amp;sid=" & sid & "'>上一页</a><br/>")
    		Elseif rs.PageCount >1 then
    		    Response.Write("<br/>")
    		End If
            
    		Randomize()
    
    		If rs.PageCount > 2 Then
    		    Response.Write("<input name='Page' format='*N' size='5' maxlength='5'/>")
    		    Response.Write("<anchor>跳页")
    		    Response.Write("<go href='lclass.asp?run=" & Int((9999) * Rnd() + 1) & "&amp;fleg=" & fleg & "&amp;sid=" & sid & "' method='post'>")
    		    Response.Write("<postfield name='Page' value='$(Page:n)' />")
    		    Response.Write("</go></anchor><br/>")
    		End If
     		    Response.Write("[第"&Page&"/总"&rs.PageCount&"页/"&rs.RecordCount&"条]<br/>")


		end if
		Rs.close

		if fleg>0 then
			Sql = "SELECT fleg from qingtian_class where id="&fleg
			Rs.Open Sql,conn,1,1
			if not (rs.bof and rs.eof)  then
			%><a href="lclass.asp?fleg=<%=rs("fleg")%>&amp;sid=<%=sid%>">返回上一级栏目</a><br/>
			<a href='lclass.asp?sid=<%=sid%>'>返回分类首页</a><br/><%
			end if
			rs.Close
		end if

	set rs=nothing

   		Response.Write("<a href='index.asp?sid=" & sid & "'>后台管理首页</a><br/>")
end Function
%>
